60100 REM FILE TRANSLATOR
60200 REM TRANSLATES A SEQ FILE INTO A PROGRAM FILE
60250 PRINT"[147]":PRINT:PRINT
60300 INPUT "FILENAME";N$:OPEN1,8,8,"0:"+N$
60500 GET#1,C$:C$=CHR$(ASC(C$+CHR$(0))AND127):IFASC(C$)<>13THEN60500
60600 POKE152,1:PRINT"[147]";
60650 GET#1,C$:                               C$=CHR$(ASC(C$+CHR$(0))AND127)
60651 IFC$=CHR$(10)THEN60900
60700 PRINTC$;:IFC$=CHR$(13)THEN61000
60750 IFST=0THEN60650
60900 CLOSE1:PRINT"FINISHED":END
61000 IFST=0THENFORI=631TO633:POKEI,13:NEXT:POKE198,3:PRINT"GOTO60600";